home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / panda boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.2 KB  |  61 lines
  1. 11 ifx>.then30
  2. 12 poke53280,15:poke53281,15
  3. 13 print"[147][144][193]fter the picture appears, press any"
  4. 14 print"key to return to [204][207][193][196][211][212][193][210]."
  5. 20 ifx=0thenx=1:load"unpacker",8,1
  6. 30 ifx=1thenx=2:load"panda.lnk",8,1
  7. 40 :
  8. 50 poke249,224:poke250,204
  9. 52 poke251,0:poke252,64
  10. 54 poke253,0:poke254,0
  11. 56 poke255,0:sys51462:sys51459
  12. 60 :
  13. 65 ea=1:ey=3:ca=5:cl=7
  14. 70 t=rnd(-ti)
  15. 80 :
  16. 85 poke198,0
  17. 90 :
  18. 100 ifrnd(1)<.1thengosub1000
  19. 110 ifrnd(1)<.05thengosub2000
  20. 120 ifrnd(1)<.03thengosub3000
  21. 130 ifrnd(1)<.04thengosub4000
  22. 140 ifpeek(198)=0then100
  23. 150 poke198,0
  24. 155 :
  25. 160 sys51459:poke53281,6:poke53280,4:print"[147][144]"spc(9);
  26. 165 open15,8,15,"r0:star=star":input#15,er:close15:ifer<>63then999
  27. 170 print"[210]eturning to [204][207][193][196][211][212][193][210]..."
  28. 175 f$="hello connect"
  29. 180 print"loadf$,8":print"run"
  30. 190 poke631,13:poke632,13:poke198,2
  31. 999 end
  32. 1000 :
  33. 1010 ifea=1thenea=2:goto1020
  34. 1015 ea=1
  35. 1020 poke249,224:poke250,204:poke251,0:poke252,64:poke253,11:poke254,12
  36. 1030 poke255,ea:sys51462
  37. 1040 return
  38. 1050 :
  39. 2000 :
  40. 2010 ey=4:gosub2020:fordl=1to100:next
  41. 2015 ey=3:gosub2020:return
  42. 2017 :
  43. 2020 poke249,224:poke250,204:poke251,0:poke252,64:poke253,11:poke254,14
  44. 2030 poke255,ey:sys51462
  45. 2040 return
  46. 2050 :
  47. 3000 :
  48. 3010 ifca=5thenca=6:goto3020
  49. 3015 ca=5
  50. 3020 poke249,224:poke250,204:poke251,0:poke252,64:poke253,29:poke254,15
  51. 3030 poke255,ca:sys51462
  52. 3040 return
  53. 3050 :
  54. 4000 :
  55. 4010 ifcl=7thencl=8:goto4020
  56. 4015 cl=7
  57. 4020 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  58. 4030 poke255,cl:sys51462
  59. 4040 return
  60. 4050 :
  61.